package require Mk4tcl

mk::file open db docs/wubchain.tkd
mk::view size db.users 0
mk::view layout db.users {
    username 
    password 
    email 
    sid 
    last_login:I 
    emoticons:I 
    nick_colors:I
    lines:I 
    auto_update:I 
    user_list:I
    mobile:I 
    from_language 
    to_language 
    time_stamps:I 
    time_zone 
    hide_logon_logoff:I
    admin:I
    state
    ipaddr
    port:I
    user_agent
    {subjects {
	id:I subject
    }}
}

mk::row append db.users \
    username test password test \
    email test \
    sid "" \
    last_login 0 \
    emoticons 1 \
    nick_colors 1 \
    lines 30 \
    auto_update 1 \
    user_list 1 \
    mobile 0 \
    from_language en \
    to_language en \
    time_stamps 1 \
    time_zone GMT \
    hide_logon_logoff 0 \
    admin 1 \
    state "" \
    ipaddr "" \
    port 0 \
    user_agent ""

mk::row append db.users \
    username test2 \
    password test2 \
    email test \
    sid "" \
    last_login 0 \
    emoticons 1 \
    nick_colors 1 \
    lines 30 \
    auto_update 1 \
    user_list 1 \
    mobile 0 \
    from_language en \
    to_language en \
    time_stamps 1 \
    time_zone GMT \
    hide_logon_logoff 0 \
    admin 1 \
    state "" \
    ipaddr "" \
    port 0 \
    user_agent ""

mk::row append db.users \
    username test3 \
    password test3 \
    email test \
    sid "" \
    last_login 0 \
    emoticons 1 \
    nick_colors 1 \
    lines 30 \
    auto_update 1 \
    user_list 1 \
    mobile 0 \
    from_language en \
    to_language en \
    time_stamps 1 \
    time_zone GMT \
    hide_logon_logoff 0 \
    admin 1 \
    state "" \
    ipaddr "" \
    port 0 \
    user_agent ""

mk::file commit db
mk::file close db
exit
